home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
VPASCAL.LZH
/
WORDS
< prev
Wrap
Text File
|
1985-08-08
|
512b
|
15 lines
PROGRAM WORDS; {this shows how to program the computer to write to the screen}
VAR
COUNT : INTEGER;
N : INTEGER;
BEGIN
WRITELN('this is the WORDS program;');
WRITELN('you can use it to learn about WRITELN statements.');
WRITE('type a number between 5 and 10 followed by <CR>:');
READLN(COUNT); {your turn to tell the program something}
FOR N := 1 TO COUNT DO
WRITELN('the value of N is:', N);
WRITELN('-------------all done now!-------------');
END.